home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1997 #1
/
Amiga Plus CD - 1997 - No. 01.iso
/
pd
/
anti-virus
/
xtruder
/
rexx
/
examples
/
xtruder_getfile.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1985-03-24
|
283b
|
14 lines
/*
** 'GetFile' example
*/
Options Results
Address XTRUDER
GetFile TITLE '"Select a file..."' PATH '"S:"' FILE '"user-startup"'
IF RC = 5 THEN
RequestUser TEXT '"You forgot to select a file!"' RESPONSE '"Bugger!"'
ELSE
RequestUser TEXT RESULT RESPONSE '"That was the one!"'